home *** CD-ROM | disk | FTP | other *** search
/ Scene 96 / Scene 96 International Edition (Zyklop Software) (Disc 2) (1997).iso / misc / coding / vgacodng / part07_a.pas < prev    next >
Pascal/Delphi Source File  |  1996-11-22  |  339b  |  16 lines
  1. program Inc_Mem;
  2.  
  3. uses crt;
  4.  
  5. var n1,n2 : byte;
  6.  
  7. begin
  8.   asm mov ax,13h; int 10h end;
  9.   for n1 := 0 to 9 do
  10.     for n2 := 0 to 9 do mem[$A000:n2*320+n1] := mem[$A000:n2*320+n1] + 1;
  11.   for n1 := 9 to 18 do
  12.     for n2 := 9 to 18 do mem[$A000:n2*320+n1] := mem[$A000:n2*320+n1] + 1;
  13.   readkey;
  14.   asm mov ax,3; int 10h end;
  15. end.
  16.